home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip Kasım 2000.iso / prog / share / 11 / setup.exe / %MAINDIR% / DEMOS / CIFTP / FTPEXP / attach.cls < prev    next >
Encoding:
Text File  |  2000-09-07  |  701 b   |  28 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "Attachment"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = False
  8. Option Explicit
  9.  
  10. '---------------------------------------------------
  11. '<Purpose> attaches extra data to a particular node
  12. '---------------------------------------------------
  13.  
  14. '<Public>-------------------------------------------
  15. Public NodeType             As Integer
  16. Public DrivePath            As String
  17. Public Session              As Form
  18. '</Public>------------------------------------------
  19.  
  20. Private Sub Class_Terminate()
  21.  
  22.     On Error Resume Next
  23.     Unload Session
  24.     Set Session = Nothing
  25.     On Error GoTo 0
  26.     
  27. End Sub
  28.